home *** CD-ROM | disk | FTP | other *** search
Modula Implementation | 1988-02-13 | 639 b | 33 lines |
- IMPLEMENTATION MODULE Math;
-
-
- (*------------------------------------------------------------------*)
-
- PROCEDURE Max ( Left : INTEGER;
- Right : INTEGER ) : INTEGER;
-
- BEGIN
- IF Left > Right THEN
- RETURN ( Left )
- ELSE
- RETURN ( Right )
- END;
- END Max;
-
- (*------------------------------------------------------------------*)
-
- PROCEDURE Min ( Left : INTEGER;
- Right : INTEGER ) : INTEGER;
-
- BEGIN
- IF Left < Right THEN
- RETURN ( Left )
- ELSE
- RETURN ( Right )
- END;
- END Min;
-
-
- END Math.
-
-